home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / findfi_1 / form5.frm < prev    next >
Text File  |  1998-08-19  |  3KB  |  110 lines
  1. VERSION 5.00
  2. Begin VB.Form Form5 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "3D Button"
  5.    ClientHeight    =   765
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   1695
  9.    Icon            =   "Form5.frx":0000
  10.    LinkTopic       =   "Form5"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   765
  14.    ScaleWidth      =   1695
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.Label Label1 
  17.       Alignment       =   2  'Center
  18.       BackStyle       =   0  'Transparent
  19.       Caption         =   "3D Button"
  20.       BeginProperty Font 
  21.          Name            =   "MS Sans Serif"
  22.          Size            =   9.75
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   255
  30.       Left            =   120
  31.       TabIndex        =   0
  32.       Top             =   240
  33.       Width           =   1335
  34.    End
  35.    Begin VB.Line Line1 
  36.       BorderColor     =   &H00FFFFFF&
  37.       Index           =   1
  38.       Visible         =   0   'False
  39.       X1              =   120
  40.       X2              =   120
  41.       Y1              =   120
  42.       Y2              =   600
  43.    End
  44.    Begin VB.Line Line1 
  45.       BorderColor     =   &H00808080&
  46.       Index           =   2
  47.       Visible         =   0   'False
  48.       X1              =   1560
  49.       X2              =   1560
  50.       Y1              =   120
  51.       Y2              =   600
  52.    End
  53.    Begin VB.Line Line1 
  54.       BorderColor     =   &H00FFFFFF&
  55.       Index           =   0
  56.       Visible         =   0   'False
  57.       X1              =   120
  58.       X2              =   1560
  59.       Y1              =   120
  60.       Y2              =   120
  61.    End
  62.    Begin VB.Line Line1 
  63.       BorderColor     =   &H00808080&
  64.       Index           =   3
  65.       Visible         =   0   'False
  66.       X1              =   120
  67.       X2              =   1560
  68.       Y1              =   600
  69.       Y2              =   600
  70.    End
  71. End
  72. Attribute VB_Name = "Form5"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. Dim Shift As Control
  78.  
  79. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  80. For Z = 0 To 3
  81.     Line1(Z).Visible = False
  82. Next Z
  83. End Sub
  84.  
  85. Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  86. If Button = vbLeftButton Then
  87.     Line1(0).BorderColor = QBColor(8)
  88.     Line1(1).BorderColor = QBColor(8)
  89.     Line1(2).BorderColor = QBColor(15)
  90.     Line1(3).BorderColor = QBColor(15)
  91. End If
  92.  
  93. End Sub
  94.  
  95. Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  96. For Z = 0 To 3
  97.     Line1(Z).Visible = True
  98. Next Z
  99. End Sub
  100.  
  101. Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  102. If Button = vbLeftButton Then
  103.     Line1(0).BorderColor = QBColor(15)
  104.     Line1(1).BorderColor = QBColor(15)
  105.     Line1(2).BorderColor = QBColor(8)
  106.     Line1(3).BorderColor = QBColor(8)
  107. End If
  108. End Sub
  109.  
  110.